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ose :4 VAX-11 Bliss-32 V4.0-742 1 
at 198¢ 9: 33: 13 DISKSVMSMASTER:CF11X.SRCIDIRSCN.B32; 1 ad (1) 
1 MODULE DIRSCN ( LaNuact, ; .. 
§ HDENT = *'vOC-000" 
4 d= 
‘ BEGIN 
| 
3 ; TITIIILILILILILI LLL LIL LLL LLL TLL Titi itt iii iiiiiiiiiii iii 
3 '@ e 
10 le COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
11 11 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
\¢ \¢ i# ALL RIGHTS RESERVED. * 
4 o 
14 146 1 !® THIS SOFTWARE IS FURNISHED TUNER A LICENSE AND MAY BE USED AND COPIED * 
15 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
1 1g 'e INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
18 18 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
“3 13 ie TRANSFERRED. * 
Hid 
1 1 'e THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
¢ ; ‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ? ts CORPORATION. : 
5 5 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ $ ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
i 
: s neseduibemebbenessededsenssnsebesenseuenbbnnaneanetaebanabasenednnantases 
1 1oe 
! 
5 FACILITY: F11ACP Structure Level 2 
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i ABSTRACT: 


This routine performs the basic directory scan, searching for the 
given entry. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 30-Dec-1977 11:14 
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3 i MODIFIED BY: 
5 v03-009 CDS0006 Christian D. Saether 29-Aug-1984 
; Establish Last block for search in directory scan also. 
5 v03-008 ¢DS0005 Christian D. Saether 55-Aug-1984 
32 Fix directory index search still. 
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16-3 -1 19:4 VAX-11 BLi 
12-08-1382 PSi4395 ee RALEF 
v03-007 €dS0004 Christian D. Saether 55-Aug-1984 


Fix sense of Length extended compare in directory 
index search. Make dirindx cell size 15 bytes. 


v03-006 ¢DS0003 Christian D. Saether 2-Aug-1984 
Add support for revamped directory index cache. 

v03-005 ¢cdS0002 Christian D. Saether 25-Apr-1984 
Remove references to DIRIDX in the FCB. 

v03-004 ACG0408 Andrew C. Goldstein, 23-Mar-1984 11:17 
Make rest of global storage based 

v03-003 cdS0002 Christian D. Saether 29-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 

v03-002 ¢DS0001 Christian D. Saether 12-Dec-1983 
Move GLOBAL data declaration to COMMON module. 

v03-001 LMP0080 L. Mark Pilant, 15-Feb-1983 12:26 
Add support for propagation of file attributes. This 


consists of remembering the FID of the highest version 
of the file of the same name and type. 


v02-008 ACG0259 Andrew C. Goldstein, 27-Jan-1982 20:16 
Fix counting of entries when skipping records 


v02-006 ACG0208 Andrew C. Goldstein, 26-Oct-1981 16:27 
Add support for segmented directory records. 


v02-005 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
Previous revision history moved to F11B.REV 


Re bat JORARY #1 18,152"; 
*SRCS:FCPDEF .B352'; 


ROUTINE 


DIR_SCAN : L_NORM, ! directory scanner 

NEXT_REC : L-NORM ' get next directory record 

UPDATE _INDX : NOVALUE, ! update directory index entry 
NEXT_DIR_REC : L_NORM; ' get next matching directory record 


42 ° 
RCIDIRSCN.B32;1- 


16- se0-1 984 99: 13:48 VAX=11 Bliss-32_ V4.0-742 Page ; y 


14-Sep-1 DLSKSUMSMASTER EF TIX, SREIDIRSCN.B32:1°°" (23 | 
GLOBAL ROUTINE DIR.SCAN (NAMEDESC, FILED, START BLOCK, STARTLREC, START_VER, START PRED, REC COUNT) | 
: LLNORM = 


++ 
FUNCTIONAL DESCRIPTION: | 
This routine scans a directory, searching for the given entry. 


CALLING SEQUENCE: 
DIR_SCAN (ARG1, ARG2, ARG3, ARGS, ARGS, ARG6, ARG?) 


INPUT oy pall 
ARG1: address of file name descriptor block 
ARG2: address of file ID block 
ARGS: relative block number to start poonen 
ARG4: address of record at which to start 
ARGS: address of version entry at chich to start 
ARG6: address of predecessor record 
ARG7: maximum number of records to scan 
| 
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(functions only with FIND_FID and a non-matching FID) 


IMPLICIT INPUTS: 
LAST_ENTRY: name string of last record in previous block 
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IMPLICIT OUTPUTS: 
R yom of relative block + 1 of current Strectory oy ire 
uf 


FFER: address of current directory block 


uw 


RECORD: record number within block of found robes 
“ENTRY: address in buffer of found record 
=¥ERSION: address if buffer of found version entry 

PRED: predecessor record to record found 
ST_ENTRY: name string of last record in previous block 
ASTON. LIMIT: version Limit of last file name processed 
RSION_COUNT: number of versions of current file name passed 


ROUTINE VALUE: 
1 if entry found 
0 if no match. in which case: 
R_ENTRY = next record in collating sequence 
whole directory scanned (name belongs off the end) 
DIR_ VERSION = next version in collating sequence if name & type matched 
= 0 if name or type did not match 
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SIDE EFFECTS: 
directory blocks read 
directory index in FCB updated 


BEGIN 
MAP 
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4 NAME _DESC : REF BBLOCK; ! name descriptor block arg 
LABEL 
DIRINDX_SCAN, !' block to search directory index 
SEARCH_COOP; i body of search code 
LINKAGE 
L_MATCH_NAME = J yses ed ge ER : it REGISTER = 3, REGISTER = 4, REGISTER = 5) 
LOCAL 
DIRINDX : REF BBLOCK FIELD CoiRC). : bie d yet index cache 
STATUS, routine return status 
COUNT, enter. count uithin’ current block 
BLOCK ' relative block number 
LAST BLOCK, i Last block of directory to read 
MATCRED, ! flag indicating name match encountered 
N : REF BBLOCK, ! address of name descriptor block 
ENTRY : REF BBLOCK, ! pointer to current directory record 
P : REF BBLOCK, ! pointer to current directory version 
PREV_ENTRY : REF BBLOCK; ! pointer to previous record 
BIND_COMMON; 


DIR_CONTEXT_DEF ; 


EXTERNAL ROUTINE 
READ_BLOCK : LLNORM, ! read a disk block 
IR : LUNORM, ' mark buffer for write bac 
FMGSMATCH_NAME : L_MATCH_NAME; ! match general wild card Sev ine 


define directory context fields 


Initialize basic pointers. Compute the cluster factor of the directory 
index from the directory size. 


DESC; 
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~START-REC; | 
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IF .BLOCK GTRU .DIR ep eesest EFB kK] 
THEN BLOCK = .DIR _FCBCFCBSL_EFBLK); 


SEARCH_LOOP: BEGIN ! outer directory search loop 
: Initialize the last dlock for the search to be the end of file. 
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LAST_BLOCK = .DIR_FCBCFCBSL_EFBLK) = 1; 


4 IF NOT ( HSRCHAR (.DNCFND_STRING]) EQL ‘*' 
4 OR CHSRCHAR (.DNLFND-STRING]) EQL ‘2° 
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16-Sep-1984 00:19:4 VAX-11 Bliss-3 

19-808-} 382 90:48:43 DISKSVMSMASTER: CF 
OR .DNCFND_FIND_FIDJ 

—— = .DIR_FCB CFCBSL_DIRINDX]) NEQ 0 


— > ss 
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! There is a directory index. This cache contains the Last entry 
' of blocks that have already been read. t allows us to move the 
! starting block for the search into the directory file instead 

! of always starting at the beginning of the file, and Limit the 

: end of the search also. 


DIRINDX SCAN: 
BEGIN 
LOCAL 

CELL ADDR, 


; 1 4 

; 1 

; 1 

; 1 

; 1 

| H 

; 1 ig 

8 1214 

; 15 

; 17 

; 1 8 rs 

: Be 

; 1 é 4 CELLSIZE, 

; 1 4 CMPSIZE 

; 1224 4 FNDSTRNG, 

; 1225 4 PTR 

; $ 4 SEARCH_CELL : WORD; 

; 39 1ge8 4 IF .DIRINDX CDIRC$SW_INUSE] EQL 0 

; 41 1230 LEAVE DIRINDX_SCAN; 

: cs : 4 SEARCH_CELL = .BLOCK/.DIRINDX CDIRCS$W_BLKSPERCELL); 
; 4s 4 ‘ CELLSIZE = CMPSIZE = .DIRINDX CDIRC$W_CELLSIZE); 
: éf 6 ‘ FNDSTRNG = .DN CFND_STRING); 

; 49 : 4 1F DN CFND_COUNT] LSSU .CMPSIZE 

; 251 40 4 CMPSIZE = .DN CFND_COUNT); 

: 38 4¢ 4 IF (PTR = CHSFIND_CH (.CMPSIZE, .FNDSTRNG, '*')) NEQ 0 
: 35 44 4 CMPSIZE = .PTR - .FNDSTRNG; 

: 4 46 4 IF (PTR = CHSFIND_CH (.CMPSIZE, .FNDSTRNG, '%")) NEQ 0 
; 59 48 é CMPSIZE = .PTR - .FNDSTRNG; 

: 261 1250 4 CELL_ADDR = DIRINDX CDIRCST_FIRSTCELL] 

3 oe 1 2} 4 + (,SEARCH_CELLY*(.CELLSIZE); 

> 26 1 ; 4 

i 583 S80 0° 

; 66 1255 4 UNTIL .SEARCH_CELL GEQU .DIRINDX CDOIRC$SW_INUSE) 
: 268 1 25 4 CASE CHSCOMPARE (.CMPSIZE, .FNDSTRNG 

; 69 1 38 4 CELLSIZE. .CELL_ADOR, 

: 270 1259 4 6) 

: 571 1260 4 FROM -1 TO 1 OF 

: 97 1261 4 SET 

; oa 1262 4 
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1h-56 -1984 00:19:4 VAX-11 Bliss-3 
12-808=1 382 99° 48:4 DISKSVMSMASTER 
Directory index cell is greater than the string we are searching with. 
Drop out of the Loop. 

{-1}]: EXITLOOP; 
Exact match. orep out of the loop. We must start the search 
at the start of this group. 

(0): EXITLOOP; 
The search string is greater than this directory index entry. It 
therefore cannot be in this group or any that we have passed 

e 


Update the starting block to reflect that fact, bump cell pointers 
and keep searching. 


(13: BEGIN 
BLOCK = (.SEARCH_CELL)®(.DIRINDX CDIRC$W_BLKSPERCELL)); 
SEARCH CELL = .SEARCH CELL ¢ 1; 
CELL ADDR = .CELL_ADDR + .CELLSIZE; 

TES: ; 


The second part of the search is to establish the end block for the 
scan. This time we want the fill character for the compare to 
extend the Eptenetotiy shorter search string with hex FF instead 
of zero so that possible wildcards do not make us stop short. 

f we exceed the number of cells in use without finding a directory 
ndex entry greater than our search string, LAST_BLOCK will remain 
set to end of file. 


UNTIL .SEARCH_CELL GEQU .DIRINDX CDIRCSW_INUSE) 


CASE CHSCOMPARE (.CMPSIZE, .FNDSTRNG 
.CELLSIZE, .CELL_ADOR, 


-1) 
FROM -1 TO 1 OF 
SET 
Directory index cell is greater than the string we are searching with. 


The entry cannot be beyond here. Reset the LAST_BLOCK variable to 
Limit the search. 


{-i]: BEGIN 
LOCAL 
TEMP; 
TEMP = (.SEARCH_CELL + 1)*(.DIRINDX CDIRCS$W_BLKSPERCELL]) - 1; 
IF .TEMP LSSU .LAST_BLOCK 
THEN 


LAST_BLOCK = .TEMP; 
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1 EXITLOOP; 
; END; 
! The search string is equal to or greater than the directory entry. 
5 } Continue scanning the directory iRden. . : 
SEARCH CELL = .SEARCH CELL + 1; 
9 CELL_ABDDR = .CELL_ADOR + .CELLSIZE; 
END; 
: TES; 
44 
5 END; 
5 ! If checking against EOF and the directory index has chenged the starting 
rt block number, discard the starting record pointers, which are now irrelevant. 


50 

51 IF .BLOCK NEQ .START_BLOCK 
26 THEN 

5 BEGIN 

54 ENTRY = 0; 

3 foun 

3$ PR 

58 

59 


EV_ENTRY = 0; 
LAST-ENTRYLOJ = 0; 
END; 


: Loop, scanning blocks of the directory until we hit EOF. 


wn 


= 


WHILE 1 DO 
BEGIN 


o 
“ 


IF .BLOCK GTRU .LAST_BLOCK 
THEN LEAVE SEARCH_LOOP; 

IF .ENTRY EQL 0 

THEN 


BEGIN 

ENTRY = READ_BLOCK (.BLOCK+.DIR_FCBCFCBSL_STLBN), 
LAS CK™= .BLOCK # 1, 
DIRECTORY_TYPE); 

DIR BUFFER = ENTRY; 


! Loop, scanning the records of the directory. A record size of -1 indicates 
! the end of the block. We attempt to match name and type against the entry, 
under control of the various name control flags. 


WHILE 1 
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BEGIN 
IF .ENTRYCDIRSW_SIZE) EQL 65535 
THEN 
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N 
-PREV ENTRY 


] 
| 
| 
BEG! | 
IF NEQ 0 
HEN CHSMOVE (.PREV Ewraycolese NAME COUNTJ+1 


PREV_ENTRYCDIRSB_RAMECOUNTJ, LAST_ENTRY); 
PREV_ENTRY = 0; 
ExITCOOP; 


Do setup and validation for the record. 


IF .ENTRY pinew sized + ,ENTRY + 2 GEQA .DIR_BUFFER + 512 

OR .ENTRYLDIRSV_TYPEJ NEQ DIRSC_FID 

OR .ENTRY Bee A OUT GTRU FILENAME Lenery 

OR .ENTRYLDIRSB_NAMECOUNT) GTRU .ENTRYCDIRSW_SIZE] + 2 = DIRSC_LENGTH = DIRSC_VERSION 
THEN ERR_EXIT (SS$_BADIRECTORY); 


If this is a lookup for lowest version and a name has previously matched, 
see if the name in the record has changed from the previous record. 

so, the previous record has the lowest version. This test is made in 

a@ seemingly redundant manner with the name change test below to minimize 
its actual execution. 


IF “PATCHED 
AND .DNCFND_VERSION] EQL -32768 
AND (IF PREV ENTRY EQL 0 
THEN CHSNEQ “ENTAVEDIRGB-NARECOUNT] 
o1 
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ENTRYCOIRS$B_NAMECOUNT), 

-ENTRYCDIRSB_NAMECOUNTJ+1, 

LAST_ENTRY) 

ELSE CHSNEQ (.ENTRYCDIRSB_NAMECOUNTJ+1, 
ENTRYCDIR$B_NAMECOUNT 
-ENTRY bins NAME COUNT 
PREV_ENTRYCDIRSB_NAME 


) 
THEN LEAVE SEARCH_LOOP; 


Attempt to match the name, using a piagte string compare if there are 
no wild cards, otherwise the general wild card match routine. 


41, 
COUNT]) 


IF 
BEGIN 


IF .DNCFND_FIND_F ID) 
THEN 1 
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IF NOT .DNCFND WILD] 
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440 CASE CHSCOMPARE (ENTRYEDIRSB_ NAME COUNT, 
441 ENTRYCDIR$T NAME), 
44 .ONCFND_ COUNT] 
44 “DNCFND~STRINGS 
he j 
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FROM -1 TO 1 OF 
SET 


{C-1): 0; ! no match - dir entry precedes name 
(0): 1; ! match 
(1): pecin ! no match = dir entry is past name 
LEAVE’ SEARCH_LOOP; 
TES 
ELSE 


. 


! If the name : on type match on a record, loop to process the versions of 


the recor 


THEN 
BEGIN 
IF .P EQL 0 


gti 
= .ENTRY + DIRSC_LENGTH + .ENTRYCDIRSB_NAMECOUNT] + 1 AND NOT 1; 


IF (IF .PREV_ENTRY EQL 
THEN CHSREQ ( i 


eENTRY 
ELSE CHSNEQ (. ENTRY 


- ENTRY 
PREV_E 


B_NAMECOUNTJ+1, 
B-NAMECOUNTJ, 
B-NAME COUNT 1, 


$ 

$ 

: 

$8 aretha +1, 
SB-nane ComiyaS 
es 


DI 
DI 
DI 
NT 
DI 
v1 
NT IR$B_ NAMECOUNT) 


DDDDDDADWD 


0: 
-ENTRYCDIRSW_VERLIMITI; 


BEGIN 
IF NOT “*DAEER 


JDIRSCN.B32; ;* 


4 


9 
* (2) 
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it +4 IF .DONCFND_VERSION] GTR .PCDIRSW_VERSION) 


3 491 MATCHED = 1; 
436 IF .COUNT GEQU .REC_COUNT THEN LEAVE SEARCH_LOOP; 
5 94 IF 
95 BEGIN 
08 38 F .DNCFND_FIND_FID) 
98 THEN CHSEQC (FIOSC_LENGTH, .FILE_ID, FIDSC_LENGTH, PCDIR$W_FIDJ) 
9 ELSE IF .ONCFND_WILD_VERI 
OR -DNEEND MAX VER 
¢ OR .DNCFND-VERSION] EQL -.VERSION_COUNT 
THEN 1 
5 
28 


— tb 


L 

E 0 
ELSE .DNCFND_VERSION] EQL .PCDIRSW_VERSION] 
END 


STATUS = 1; 
LEAVE SEARCH_LOOP; 
END; 


MEAN O OONAUE WN $$ OOONOUSWN OO 


IIR ININIR IND 


P = .P + DIRSC_VERSION; 

COUNT = .COUNT + 1; 

VERSION_COUNT = .VERSION COUNT + 1; 

END; T end of record scanning Loop 
n 


END; ! end of record processing conditional 


Set up the next record to process. 


DEAN ASSO VO 


Fe at ot et et et et ek) 


IF .P EQL 0 
: THEN P = .ENTRY + DIRSC_LENGTH + .ENTRYCDIRSB_NAMECOUNT) + 1 AND NOT 1; 
PREV_ENTRY = .ENTRY; 
5 ENTRY = NEXT_REC (.ENTRY); 
§ COUNT = .COUNT + (.ENTRY-.P) / DIRSC_VERSION; 
= 0; 
3 END; ! end of block scanning loop 


We have tripped out of the record scan loop, either because we reached 
the end of the block or we ran out the record count. In the latter case 
(i.e., if this was a position to record number call), we are done. 
Otherwise update the directory index (causing it to be built on the fly) 
and read the next block. 


Tw Tel al tah al al al al ab sh ah ah ah dh sb ab tb th th dh db dh th dh eb dh ah al ah ak a) al al al eal 


ee a a ee ee a a a a a ee eee ee ee a a a a ee ee a 
et et et et et et ek 
terete es ese 


NOUS WIN —O 


BEEBE EEE FE NNADNMAMANNAIIS: SINS SID 09 09 “N09 09 69 09 0 0 0 OO OD 0900000 CO CD COCO CO OD OO NII 


Be Se Be Oe Os Be Oe Oe Be Be Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge FH Ge Ge Ge Be Ge Ge Se Ge Ge GH Se Ge Se Se Ge Se Se See Ge Se Se Se oe Se Oe Se Se Se oe Se ee 


ONO UE WN —-O0OnNO 


PAA IE 


PF 


BEGIN 

IF .DNCFND_FLAGS] EQL 0 

THEN LEAVE~SEARCH_LOOP 

ELSE EXITLOOP 

N 

IF .LAST_ENTRYCO] NEQ 0 
| 
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; 59 1 rh 4 THEN 

; 29 i 4 2 UPDATE_INDX (.BLOCK, .LAST_LENTRY COJ, LAST_ENTRYC1), .DIR_FCB); 
; 6¢ 188) BLOCK = ,BLOCK + 1; 

: 56 1 ; 4 ENTRY = 0; 

; 5646 1 4 P = Q; 

; 565 1554 4 COUNT = 0; 

; 66 1555 4 IF .REC_COUNT LSSU 63 THEN LEAVE SEARCH_LOOP; 

; 44 1 . END; ! end of block loop 

; 4 1388 END; ! end of block SEARCH_LOOP 

: 34 1560 ! We are done searching the directory, and have either found the 

3 276 1561 ! desired entry or have passed the point where it should be. If we 

. 1 6¢ ' matched on the name of the previous record, back up to it. Point to 
; ae 156 ! the last version in the record if we were searching for lowest 

3; 375 1564 ! version; else point off the end of the record. 

: 376 1366 8 

: 578 1869 5 1F NOT .STATUS 

s 37 1568 AND .MATCHED 

; 580 1569 D .P EQ 0 

2 ee ee 

: $88 1378 IF ;PREV_ENTRY NEQ 0 

: 585 1574 4 BEGIN 

; +586 1575 4 ENTRY = .PREV_ENTRY; 

: 587 1376 4 END 

; 588 1577 3 ELSE 

im Ws Ber, 

: 591 1580 4 BLOCK = .BLOCK = 1; 

: 296 1581 4 P = READ BLOCK (.BLOCK+.DIR_FCBCFCBSi_STLBNJ, 1, DIRECTORY_TYPE); 
3; 138 4 DIR_BUFFER = .P; 

: 396 18p $ " BEG! 

; 4 1585 2 ENTRY = .P; 

: 59 1386 3 P = NEXT_REC (.P); 

3 rs +4 2 oo ed = .COUNT + (.P = .ENTRY = (.ENTRYCDIRSB_NAMECOUNT]+1 AND NOT 1)) / DIRSC_VERSION; 
; 600 1389 4 UNTIL -PCDIRSW_SIZE) EQL 65535; 

: 60 1591 P = .ENTRY + .ENTRYCDIRSW g126) + 2: 

; 60 1 4 IF .DONCFND_VERSION) EQL -3 

: 808 1300 ¢ MN pecin 

; 606 1595 4 P = .P = DIRSC_VERSION; 

; 60 1596 4 VERSION_COUNT = .VERSION_COUNT - 1; 

; 608 138 4 COUNT = “£0 - 1; 

; 609 1 4 4 STATUS = 1; 

3; 610 159 END; 

i ta 

: ei$ 1608 : Return the record count and pointer in global storage and return status. 
: 615 1604 2 
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16-5 1984 00:19:44 VAX=11 Bliss-32_ V4.0-742 P 
1 730p-1$8e 99:53:17 DISKSVMSMASTER:CF11X.SRCIDIRSCN.832; 1 


1605 2 DIR_VBN = .BLOCK + 1; 
1 DIR“RECORD = .COUNT; 
16 DIRTENTRY = ENTRY; 
16 DIRVERSION = .P; 
160 DIR“PRED = .PREV_ENTRY; 
161 RETURN .STATUS; 
1818 END; ! end of routine DIR_SCAN 
.TITLE DIRSCN 
“IDENT \V04-000\ 
.EXTRN READ BLOCK, MARK_DIRTY 
-EXTRN FMGSMATCH_NAME 
oBF ¢ 00000 .ENTRY DIR_SCAN, Save R2,R3,R4,R5,R6,R7,RB,R9,R11 
SE 10 ¢ 90002 SUBL2 #167 SP 
00D0 CA 9F 0000 PUSHAB 208(BASE) 
59 00DC CA 9E 00009 VAB  220(BASE), R9 
1A AJ 99F QOO0E PUSHAB 6(R9) 
1¢ a9 9F 00011 PUSHAB 28(R9) 
58 04 AC 00 00014 MOVL NAME DESC, DN 
7E 04 00018 CLRL STATOS 
OC AC DD OOO1A PUSHL  START_BLOCK 
57 10 AC DO 0001D MOVL § START-REC, ENTRY 
14 AC DD 0021 PUSHL START-VER 
18 AC DD 00024 PUSHL START PRED 
00D8 CA DD 900 7 PUSHL 216(BASE) 
7E 04 00028 CLRL. MATCHED 
50 20 BE DO 00020 VL  a@32(SP), RO 
3c A 10 AE 01 00031 CMPL BLOCK 60(RO) 
0 it 00036 BLEQU 1 
10 AE 3c «= ADs«é#DO-: 00038 MOVL 60(R0) BLOCK 
50 20 «BE 00 0030 1$: MOVL a@32(SP5, R 
oY) 3c. 0A 01 C3 00041 SUBL3. #1, 60(RO), LAST_BLOCK 
2A 08 B8 91 00046 CMPB) ss @B(DN),, #42 
A 13 O004A BEQL 2$ 
25 08 B8 91 004 CMPB = @B(DN), #37 
4 13 0005 BEQL © 2$ 
03 68 0B 5 9 BBC #11, (DN), 38 
00BA 31 33 BRW 12$ 
50 20 BE D $ MOVL @32(SP), RO 
4 0080 ¢ p 30 MOVL 176(RO). DIRINDX 
F 6 BEQL 2% 
64 ° 64 TSTW (DIRINDX) 
EE 66 BEQL 2s 
50 06 AG 3¢ MOVZWL 6(DIRINDX), RO 
50 10 AE 20 C 6¢ DIVL3 RO. BLOCK, RO 
38 g0 1 MOVW RO, SEARCH_CELL 
04 Ab 74 MOVZWL 4(OIRINDX)> CMPSIZE 
30 AE 55 D 78 MOVL CMPSIZE cELLSIZE 
A 8 AB D 7¢ MOVL (DN), FNDSTRNG 
5 4 a8 01 00081 CMPL  4(DN). CMPSIZE 
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LOCK, LAST_BLOCK, : 1361) 
DIRSEN 3 001 ant tty : | 
voe $0 56 ye GY 135 A a40(SP), RO : | 
0 2 OF BR Rizk eeeiam SLSTAODERTI : | 
3 : ai 9F 00144 PUSHAB READ BLOCK 5 axes | 
30 BOG 9F 00144 CALLS 3, ENTRY 1375 
00006 ¢F 09 140 ss, Ov Cents #65535 : 1378) 
Ag 154 158: 17$ : 
rrPR BF rr §2 O01 , STL PREV. ENTRY 1379) 
06 HE 88 BB ADDL. #5, PREV_ENTRY, RI ; 
14 1 ADDL3 ft RO” + 1380 
08 A 83 $a ool INCL. RO R11 & 
N i ’ 
: Be BRS Bryon a. 
? § F movC prey ENTRY + 13a | 
2 8 a ee aa ao 
is i oe i OFA 178: ROVAR  ZCENTRYSEROI, Re ; 
50 02 A740 9€ 0017D yy #512, 4(R9),'R fa 
45 0000020 a 5 RS ie 
re.) ar: oe —_ 
ee ee ee eee ts 
Ar 9° TR : 
50 8F OB TA 00198 Sale #2, oO centRY). RO ot 
OC C2 0019D CMPZV #0, #8, :1 
50 9 ED 0010 BLEQU 19 : 1401 
— 08 a5 it O18 18$: CHMU #2088 : 1401 
comin 91 henge ot *, TCHED, 22$ ; 
et ee - 
8000 er * i if a cate PREV_ENTRY ; 1404 
ee | 0s 
50 05 Bh Be alee ete no, S(ENTRY), a24(SP S sss 
3h fF holes BOVZBL S<ENTRY), RO : 1411 | 
18 BE 05 A? MF ok bolts 208: RovzeL SENTRY), . : 
50 os A D6 O0ICF ADLS 5. SCENTRYD trad ra | 
i 1D¢ Enea” B3 : 1499 | 
54 og A 0 23 1B 218: BNEO (DN), 278 $1429 
68 f ret : ROVIBL SCENTRYD RO #0, 4(DN), @8(DN) ; 
50 1A BS OAD OBR Boies CRPCS- RO. OCENFRY), #0, ; | 
i S33 4$ | 
<< - 00 06 08 3 1A Fe BCE aU 78 r 1463 
8 if 1F 3$ BRW 7$ ; 14 
eA 4 OOIES Sub: Cm BY | 
Of 0105 Bt corre 358 
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16 | 
-742 coer lS 
3 Te ee atteaccy tic SRCIDIRSCN.B32;1 (2) | 
~Sep-1 30, SVMSMASTER:CF1iX. 
13233871982 93:48:93 = OT : 1 
Phe =500 Ra «308 
mC OE 43 0568 MOVZBL SCENTRY) Ro ; 
5 a} 9 O0¢¢8 MOVAR” P(RO)CENTRYZ, RO ps 
30 mont cb D4 BICL Entry “PREV_ENTRY ; 1535 
AE + 50 90909 388: mov. —ENfRY, 
oc 08 AE 7 DD 00200 PU #1, NEXT REC : 
1 F DF CALLS RO, ENTRY ; 1536 
0000v a 0 09 ES cue P, ENTRY, RO F 
? OC A C2 B0eET big 42 = ; 1937 
50 0 g 8 EF ADDL RO, : 1372 
06 AE S. DOSES CLRL OP ‘13 
OC AE 04 f BRW 15$ $9) 
ERP 95 OOSFS 308: sta apes ; 1549 
"MG 33 dose PUSH @32(SP) a 
20 i Op pert ADDL #1, 28(SP), ; 
50 1 AE 0 pd 00506 MOVZBL 952(SP), =(SP) 
7€ eR Bb oosbe CREs She UPDATE _INDX ; 1551 
"C0 FB OO80F Ince’ Block : 1338 
R Dd 0319 CLRL count ; 1555 
06 AE bs OOstC CHPL REC COUNT, #63 ; 
04 AE 1 O031F CMPL REC_ : 
3F * 0 iF +4 ; eg $33 3 1567 
FORD 3) 00358 418: BeBe STATUS, 43$ B nase 
” "* pose fi O03oF 488: BLBC MATCHED, 425 ; 1569 
FA AE 4 00 TSTL 7s : 1572 
HE 33 80 FSTL-PREV_ENTRY ; 
8 08 00337 EOL ‘ , : 1393 
. 06 3 3 ” MOVL pag VaenTRY. ENTR s 13% 
57 08 AE + 0340 BRB 46 wT : 1580 
04 AE D4 00542 ECL BLO ; 
10 05 bb o08es PUSHL Hg 
1 Db OOSéA ROVE” —@40(SP), RO 
28 BE D0 0034 MOVE BLOCK, 1 
29 1B AE b9 2 PUSHAB a4B(ROD[RI] 
eter a ee ae 
“ER og RRBR | BE Bl, AB 
“ ¢ AE DO 00366 458: ae 
CF P, RO 
oer i i i aed SEAN: RI 
50 A? L R . 
51 01 BA 


yOe=000 18-30-19 Moats PtecSunGhaStencchtixcenezorescew.e32:1°%° «5 


50 1 ¢ SUBL2 -R1, Ro ; 
8 ¢ 7 DIvVLe #8. R : 
AE C A ADDL RO é ¢0 T : 
FFFF BF 0c 8 CHP ap, 535 + 1589 
50 67 3¢ 46$ MOVZWL (ENTR + 1591 
08 AE 02 A047 F MOVAB 2cRO) ENTRY } : 
8 8F Ag a oF CMP g (DN) , a3 +68 : 1592 
oF a3 BNEQ 47$ : 
OC AE r A SUBL?2 a + 1595 
1¢ «BE OCB: AB DECW a28(SP) ; 596 
04 AF D? AF DECL COUN : 159 
16 AE 9 06 B MOVL. #1, STATUS : 1598 
69 19 AE 1 Ci 00385 478 ADDL3 #1, BLOCK, (R9) + 1605 
00D8 CA 04 Ar 09 BA MOVL COUNT, 216(BASE) : 1 06 
08 A9 D CO MOVL ENT (RO) : 1 
OC a9 ¢ AE 00 0034 MOVL P R9) : 1 
14 Ad Ae b9 0309 MOVL  PREV_ENTRY, 20(R9) -% 
50 4 AE ? 0 cE MOVL  STATOS, RO : 1611 
4 0030 RET + 1613 


; Routine Size: 979 bytes, Routine Base: S$CODES + 0000 
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; 6 $ 1614 1 GLOBAL ROUTINE NEXT_REC (ENTRY) : L_NORM = 

5; © 1615 1 

3; © 3 1618 1 lee 

3; 6 1617 1! 

3 ? : 1213 ; ; FUNCTIONAL DESCRIPTION: 

3; 6 § 16 y 1! This routine locates the next directory record and checks it for 
3; 6 16 1! consistency. 

; 6 16 § ,! 

; 635 16 1! 

3; 6 1626 1 ! CALLING SEQUENCE: 

; 6 1625 1! NEXT_REC (ARG1) 

3; 6 16 ° 1! 

; 639 16 1 ! INPUT PARAMETERS: 

; 640 16 : 1! ARG1: address of present record 

: 641 16 1! 

3 pak 1650 1 ! IMPLICIT INPUTS: 

; 64 1631 1! NONE 

: 644 16 ; 1! 

3; 645 16 1 ! OUTPUT PARAMETERS: 

$ o*6 16 1! NONE 

; 64 1635 1! 

; 668 16 1 ! IMPLICIT OUTPUTS: 

: 649 16 e NONE 

; 650 1638 1! 

; 651 1639 1 ! ROUTINE VALUE: 

3 $26 1640 1! address of next directory record 

; 65 1641 1! 

; 654 1o%6 1 ! SIDE EFFECTS: 

; 655 164 1! NONE 

3 226 1644 1! 

: 88s ra ae 

3 o23 ieee BEGIN 

: 661 1649 MAP 

3 66¢ 1650 ENTRY : REF BBLOCK; ! current directory record 
; 66 1651 

3; 664 1936 LOCAL 

; 665 tt NEXT_ENTRY : REF BBLOCK; ! new directory record 
3 $69 1655 BIND_COMMON; 

; 668 1636 

: 6 i 163 DIR_CONTEXT_DEF; 

3 671 1889 ! Find the next record by adding in the record size of the current entry. 
3 O76 1660 ! Make sure the record is valid. 

: oh 1662 3 

; 675 1868 IF .ENTRYCDIR$SW_SIZE) LSSU DIRSC_LENGTH 

3 676 1664 THEN ERR_EXIT (SS$_BADIRECTORY); 

: 67 1665 2 NEXT_ENTRY = .ENTRY + sENTRYCOLRSY SIZE] + 25 
; 678 1666 IF .REXT_ENTRY GEGA (.ENTRY + 512 AND NOT 511) 
3 67 166 OR .NEXT-ENTRY<O,1> 

i $80 166 THEN ERRTEXIT (SS$_BADIRECTORY); 

Py We 

: $8) 167. 2 RETURN .NEXT_ENTRY 


~o@ 


; Routine Size: 


50 


55 bytes, 


ot 


Routine Base: 


0000 
OOpc =A oe 
04 BS 

1 if 
BC f 
cig 
00000200 8F C1 
OiFF FAA 
1 01 

9 1 

ee 

0828 8F BF 
04 
51 DO 
04 


SCODES + 0303 


SOCoOOOoOoOoOoOOoOoCoOoOoOo 


SSSSSSsSosesesesssss 
SUSRSSSVaan—SSlVns 


nu 
bad 


he 


Sep-1 
Sep-1 


Be PRS0i17 IS 


! end of routine NEXT_REC 


tad 


-ENTRY 
MOVAB 


XT_REC, Save nothin 
MEO BASES RO . 
TRY, #6 
@ENTRY, R1 
oe vf ENTRY 
452) ENTRY, RO 
" XT_ENTRY, RO 


NEXT ENTRY, 2$ 
#2088 


NEXT_ENTRY, RO 


JDIRSCN.B32;1 


ror 


; 
ll 
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en 8ee= 1 8he PS 4RTF Peed ale tea hte Reap rescew.032:9°%" ces 


| 
| 
| 

: 1673 GLOBAL ROUTINE UPDATE_INDX (BLOCK, STR_SIZE, STR_ADDR, DIRFCB) : NOVALUE = | 

2 ie |i 

: 187? 1 | FUNCTIONAL DESCRIPTION: 

: 1879 ! This routine updates the indicated cell in the directory file index. 

; 16 ? 1 | | 

; 16 ¢ 1 | CALLING SEQUENCE: 

: i ! see above 

; 1685 1 | INPUT PARAMETERS: 

3 16 § 1 } BLOCK = zero-based block within directory file 

; 16 1! STR_SIZE = size of string | 

3 1 1! STR_ADDR = address of hen 

; 1939 : DIRFCB = address of directory FCB 

: 1691 1 | OUTPUT PARAMETERS: 

: BE abate 

: 1694 1 1 IMPLICIT OUTPUTS: 

: 208 1695 ; NONE 

: 1899 1 | SIDE EFFECTS: 

s ii 1698 1! directory index updated 

: 218 1699 1) 

3; Ti 1700 1 !-- 

> 716 1701 1 

: 715 1708 BEGIN 

Se ee 

: 718 1705 DIRFCB : REF BBLOCK; 

: 338 1709 § LocaL 

: 721 1708 BLKSPERCELL, 

: 7 é 1709 CELL ADDR, 

: 7 1710 CELLS! 

: 726 1711 CELLINDX : WORD 

; , 5 Wig DIRINDX : REF BBLOCK FIELD (DIRC); 

; g § 1714 LF (DIRINDX = .DIRFCB CFCBS$L_DIRINDX]) EQL 0 

io 3 1216 RETURN; 

; 231 1718 IF ,DIRINDX CDIRCSW_INUSE] EQL 0 

Se. § 1720 BEGIN 

es, 1721 LOCAL | 

; ? 5 1 é MAXCELLS; 

.. 2 1726 DIRINDX CDIRC$W_CELLSIZE) = 15; | 

: 7 1725 MAXCELLS = (Sh = (DIRINDX goikcst FIRSTCELL] = DIRINDX CDIRC$W_INUSE}))/15; 

‘@: 17 g BLKSPERCELL = (.DIRFCB CFCBSL_EFBLRJ/.MAXCELLS) + 1; 

> 740 17 DIRINDX DIRCSU_BLKSPERCELL ] = sBLKSPERCELL ; 

; rol 17 5 DIRINDX DIRCSWTOTALCELLS) = .DIRFCB CFCBSL_EFBLK)/.BLKSPERCELL; 


i 


Be Se Se ee Se Ge Se ee Se Se Se Se Be Ge Be Ge Se Ge Se Ge Ge Se Se Oe Se Ge Se ae 
SN 
SSeS RFUNZS 

NAVE WN (OOD NO NEAR "OO ONOUF WO 


ts et ss a as a es a a ss 1 


i Sep 19:53:73 DESKSuMgmASTER-CHTiX-sReDIRSCW.B32;1°%" (2) 
USE SL KSPERCELL = .DIRINDX CDIRCSW_BLKSPERCELL]; 
Af {-BLOCK + 1) MOD .BLKSPERCELL NEQ 0 
RETURN; 
CELLINDX = .BLOCK/ .BLKSPERCELL; 
IF _ .CELLINDX GTRU .DIRINDX CDIRC$W_INUSE) 
RETURN; 
If .CELLINDX EQL .DIRINDX CDIRC$W_INUSE] 
DIRINDX CDIRCS$W_INUSE] = .DIRINDX CDIRCSW_INUSE] + 1; 
J CELL INOK GEQU .DIRINDX CDIRC$W_TOTALCELLS) 
BUG_CHECK (XQPERR, ‘exceeded total number of directory index cells"); 
CELLSIZE = .DIRINDX CDIRCS$W_CELLSIZE); 
CELL_ADDR = DIRINDX CDIRCST_FIRSTCELL] + (.CELLINDX)*®.(CELLSIZE); 
CHSCOPY (.STR_SIZE, .STR_ADDR, 0, .CELLSIZE, .CELL_ADDR); 
1 END; ! end of routine UPDATE_INDX 


-EXTRN BUGS$_XQPERR 


003¢ 00000 ENTRY UPDATE _ INDX, Save R2,.R3,R4,R5 : 1673 

50 10 ac dO 00002 MOVL DIRE : 1714 
50 0080 co DO 00006 MOVL BcROS. RD IRINDX : 
E 13 00008 BEQL = ; 

B5 0000D TSTW § (DIRINDX) : 1718 
F 12 OOOOF BNEQ 1 : 

04 Ad F BO 00011 MOVW #15, 4(DIRINDX) : 1724 

51 50 0 g 0015 SUBL3 DAR RINDX, DIRINDX, R1 > 1725 
51 O1F4 «C1 E 9019 MOVAB Qc), RI R1 : 
52 51 OF C? 0001 DIVL3 #15, R1. MAXCELLS ; 

51 10 AC 09 99 MOVL.  DIRFCB, RI > 1726 
51 3c. 3 C DIVL3 MAXCELLS, 60(R1), R1 : 
1 0 99 B INCL BLKSPERCELL ; 

06 Ad 51 8B D MOVW BLKSPERCELL, 6(DIRINDX) : 1737 

5 10 AC D 00 1 MOVL FCB, R : 1728 
53 3c C«A 31 C 5 DIVL3 wegues 60(R2), R3 ; 
02 =A 3 9 003A MOVW 2(DIRIND ; 

04 ; BRB : 1718 

51 06 AO 3C 00040 1$: MOVZWL tor INDX), BLKSPERCELL ; 1731 

or 04 AC 1 7A 00044 2$: EMUL #1, BLOCK, @# > 1733 
2 8E 17 4A EDIV 8 KSPERCELL, isp): R2, R2 F 
é 0 4F TSTL ; 
31 BNEO 5 ; 

52 04 ac 1 ¢c? 00053 DIVL3 BLKSPERCELL, BLOCK, R2 : 1737 


DIRSCN 1b-50 Sep- 16 VAX-11 Bliss-32 V4.0-742 
Pde 500 1 =300- 1382 99: 3 3 D1 SKSVMSMASTER EE F11X.SRCIDIRSCN.B32; page (3 
4 80 8 MOVW = R2, CELL LLINDX ; 
é eI CHP CLINDX, (DIRINDX) + 1739 
60 t cP LLINDX, (DIRINDX) : 1743 
NCW (DIRINDX) + 174 
02 Ad ' 3$ ine CELLINDX, 2(DIRINDX) : 176 
4 iF BLSSU : 
bbe Oooer CUSRD  <BUGS_XOPER . wer 
2 046 =A a 1 4$ MOVZWL 4 (DIRINDX) ReELLSIZE F 
} BH RU Gath. ! 
0 oc Als SF 007B OVAB eth T I EDIRINDX x], CELL ; 
52 00 oc ac 8 AC 2C 00080 MOVCS STR_SIZE, aSTR_ADDR, 0. OP ELLSIZE, - : 
60 0087 (CECL_ADDR) : 
04 00088 5$ RET : 1757 


; Routine Size: 137 bytes, Routine Base: S$CODE$S + 040A 


] 

| 
: 1751 
: 1783 
: 1755 
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ge 


SANG SG 


WAI AAAaaVaVVVUz 
BUSA Put OS GRONO PUI 


8S 
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oS 
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16-Sep-1984 00:19:44 VAX-11 Bliss- 
eRtiae ts Pa a Se He Po 
GLOBAL ROUTINE NEXT_DIR_REC (OLD_REC, VBN) : L_NORM = 
he 

FUNCTIONAL DESCRIPTION: 
This routine advances to the next directory record if the name 
matches the one given. Note that the directory context pointers 
are NOT updated. 


CALLING SEQUENCE: 
DIR_REC (ARG, ARG2) 


INPUT PARAMETERS: 
ARG1: address of current directory record 
ARG2: address of current VBN 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: IMPLICIT INPUTS: 
DIR_FCB: FCB of directory file 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


OUTPUT PARAMETERS: 
ARG2: new VBN if block read 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
address of next record or 0 


SIDE EFFECTS: 
directory blocks read 


BEGIN 

OLD_REC : REF BBLOCK; ! old directory record 
LOCAL 

NAME _BUF FER : VECTOR CFILENAME LENGTH+1, BYTE) 

' Buffer to save file name 

NEW_REC : REF BBLOCK; ! address of new record 
BIND_ COMMON; 
EXTERNAL ROUTINE 

READ_BLOCK : LNORM; ! read a disk block 


!' Save away the name string of this record. Then advance to the next 
record, reading the next block if necessary. 


CHSMOVE (.9LD_RECCDIRS$B_NAMECOUNT]+1, OLD_RECCDIRSB_NAMECOUNT), NAME_BUFFER); 
NEW_REC = tt REC {5045 REC); 
IF TNEW_RECCUIRSW_SIZE) EQL 65535 


An 


Pp 
IDIRSCN.B32;1 3 


2 eee eee 


] 
nN 13 | 
16-Sep-1984 00:19:44  VAK=11 Bliss-32 V4.0-742 Pp 6 
12=808- 1382 99:38:79 DISKSVMSMASTER:CF11X.SRCIDIRSCN.B32:1. 3} | 


: 3 } 13 THEN : 
; 831 1 i .VBN = ..VBN + 1; : 
; é 181 if ..VON GTRU .DIR_FCBCFCBSL_EFBLK) : 
; 181 THEN RETURN 0; ; 
; 4 | NEW REC = READ_BLOCK (..VBN-1 + .DIR_FCBCFCBSL_STLBNJ, 1, DIRECTORY_TYPE); : 
; 1 ; 
; 1 g IF .NEW_RECCDIRSW_SIZE] + .NEW_REC + 2 GEQA (.NEW_REC + 512 AND NOT 511) ; 
3 8 1824 OR .NEW_REC Bi RSe WANE COUNT GTRU FILENARE LENGTH 3 
; 839 1825 2 OR .NEW-RECCDIRSB-NAMECOUNT) GTR .NEW_RECCOIRSW_SIZE] + 2 = DIRSC_LENGTH - DIRSC_VERSION | F 
: HEN ERR_EX _BA Y); ; 
9 1 THEN ERR_EXIT (SSS_BADIRECTORY) | ; 

; § 1 : ! Compare the name string with the old one. If it matches, return the : 
; 1 ! new entry; else 0. : 
: Bes 1838) 5 
; B46 18 é 1F CHSNEQ (.NEW_RECEDIRSB_NAME COUNT +1, NAME_BUFFER | ; 
3 847 18 .NEWTRECEDIRSB-NAMECOUNTJ+1, NEW_RECCDIR$8_NAMECOUNT)) | ; 
; 848 1834 THEN 0 : 
; 849 1835 ELSE .NEW_REC ; 
: HE 1839 1 END; ! End of routine NEXT_DIR_REC : 
| Ps 

007¢ 00000 -ENTRY NEXT_DIR_REC, Save R2,R3,R4,R5,R6 F 1758 | ; 

5E AC AE 9E 00002 MOVAB -84(5P),~SP : : 

56 04 AC 00 00006 MOVL OLD_REC, R6 > 1812 ; 

50 05 A6 9A 9000A MOVZBL 5(R6), RO : : 

50 06 000E INCL. RO : ; 

6 05 Ab 50 28 0001 MOVC3 RO, 5(R6), NAME_BUFFER ; ; 

56 DD 00015 PUSHL R6 : 1813 ; 

FF24 OCF 01 FB 0017 CALLS #1, NEXT_REC : | ; 

54 50 00 0001C MOVL RO, NEW_REC : : 

FFFF 6 BF 64 81 0001F CMPW = (NEW_REC), #65535 : 1814 ; 

24 12 00024 BNEQ 1$ 3 3 

08 BC D6 00026 INCL  @VBN ; 1817 | ; 

50 00D0 CA DO 00029 MOVL  §208(BASE), RO : 1818 : 

3c A 0 BC D1 00 PL aVBN, 60(RO) ; ; 

0 1A BGTRU 4 : ; 

oe DD 99 PUSHL # ; 1820. : 

DD PUSHL # : : 

50 08 BC 30 AO ¢ 0039 ADDL 48(RO), avBN, RO ; : 

FF Ad F 0003F PUSHAB  -1(R ; 3 

00006 CF FB ae CALLS #3, READ_BLOCK ; : 

54 0 004 MOVL R w_REC ; | ; 

31 64 3C QOO4A 18: MOVZWL (NEW REC), R : 1823 | : 

2 02 Aa4l 9€ 004 MOVAB g (NER RECS ERI, R2 ; | : 

5 0200 C4 9 0005 OVAB R : | : 

50 1FF af AA 0005 BICW 1, R6 ; : 

50 : D1 2 CMPL = R2, RO : | ; 

1 : BGEQU ¢$ ; : 

50 «BF 05 Aa 9 61 CMPB (NEW_REC), #80 > 1824. : 

0B 1A 00066 BGTRU 2$ ; 3 


tassesinighicnlljaiieaedeaiaitasenssabieoeeppiasntanarme peat 


DIRSCN 16-Sep-19 VAX-11 Bliss-32 V4.0-742 5 
Oe 2000 1 -3e0-1 984 99: 43:43 DISKSVMSMASTER: ch F11X.SRCIDIRSCN.B32; a9 * § 
1 C2 00068 SUBL2 #12, R1 3 1825 ; 
51 0S AG 38 3 iH CHP ZV #0. #8, S(NEW_REC), R1 : : 
0828 =F i} 28: cHnU #2088 : 1826 ; 
50 05 Ad 9A £8 3$: mOVZBL S(NEW_REC), RO + 1832 : 
0S AG 6E ‘ 23 7 CMP CS g , NAME_BUFFER, 5(NEW_REC) : 1833 : 
: ps 4$: CURL RO + 1832 ; 
50 54 s 5$: MOVL NEW_REC, RO + 1835 : 
RET : 1837 
; Routine Size: 140 bytes, Routine Base: S$CODES + 0493 
; 83 1838 
; HE 1839 1 ND 
; 854 1840 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 1311 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Teeny Peet eras ee va Sener aero ea Symbols -------- Pages Processing 
: File Total Daoded Percent Mapped Time 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 31 0 1000 00:01.8 
| 
| 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DIRSCN/OBJ=OBJ$:DIRSCN MSRC$:DIRSCN/UPDATE=(ENH$:DIRSCN) 
: Size: 1311 code + 0 data bytes | 
3; Run Time: 757. 
; Elapsed Time: 1:51. 
3; Lines/CPU Min: 191 
3; Lexemes/CPU-Min: 420 


] 
14 
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S= 


; Memor Used: 459 pages 
; Compilation Complete 
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